home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / STATS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  26 lines
  1. 10  SCREEN 0,1:WIDTH 80:COLOR 0,6,6:KEY OFF: CLS
  2. 20  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 30  LOCATE 2,1
  4. 40  PRINT FNCEN$("* STATISTICS *",80)
  5. 50  PRINT
  6. 60  PRINT TAB(34);"Number";TAB(66);"Running"
  7. 70  PRINT TAB(36);"of";TAB(48);"Memory";TAB(67);"Time"
  8. 80  PRINT TAB(34);"Lines";TAB(48);"(Bytes)";TAB(65);"(Minutes)"
  9. 90  PRINT
  10. 100  PRINT TAB(5);"     Introduction";TAB(35);"1497";TAB(49);"33766";TAB(68);"13"
  11. 110  PRINT TAB(5);" 1.  Jet Plane";TAB(35);" 857";TAB(49);"18749";TAB(68);" 5"
  12. 120  PRINT TAB(5);" 2.  Rabbit";TAB(35);" 470";TAB(49);"10562";TAB(68);" 3"
  13. 130  PRINT TAB(5);" 3.  Waterfowl";TAB(35);" 492";TAB(49);"10994";TAB(68);" 5"
  14. 140  PRINT TAB(5);" 4.  Candy Dish";TAB(35);" 611";TAB(49);"12707";TAB(68);" 5"
  15. 150  PRINT TAB(5);" 5.  Two Boxes";TAB(35);"1106";TAB(49);"26115";TAB(68);"14"
  16. 160  PRINT TAB(5);" 6.  Puppy";TAB(35);"1467";TAB(49);"33361";TAB(68);"15"
  17. 170  PRINT TAB(5);" 7.  Penguin";TAB(35);"1164";TAB(49);"26115";TAB(68);"11"
  18. 180  PRINT TAB(5);" 8.  Helmet/Grouper";TAB(35);" 981";TAB(49);"22296";TAB(68);" 6"
  19. 190  PRINT TAB(5);" 9.  Cicada";TAB(35);" 618";TAB(49);"14469";TAB(68);" 5"
  20. 200  PRINT TAB(5);"10.  Pig";TAB(35);"1811";TAB(49);"40299";TAB(68);"15"
  21. 210  PRINT TAB(5);"11.  Balloon";TAB(35);"1077";TAB(49);"24810";TAB(68);"10"
  22. 220  PRINT TAB(5);"12.  Chick";TAB(35);"2411";TAB(49);"54130";TAB(68);"21"
  23. 230  PRINT
  24. 250  PRINT TAB(5);"     Totals";TAB(34);"14562";TAB(48);"334106";TAB(67);"128"
  25. 9000  END
  26.